home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00062_DragDropHide.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.2 KB  |  113 lines
  1. --
  2. -- DragDropHide
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13.  
  14. --JCODE
  15. global gUI
  16.  
  17. on new me
  18.   -- initialize constants:
  19.   set delaySecs = 1
  20.   
  21.   set ancestor = new (script "DragDropSetUp")
  22.   set responseFlag = TRUE
  23.   
  24.   --add (the actorList, new (script "ObjectUpdater", me))
  25.   return me
  26. end
  27.  
  28.  
  29. on destruct me
  30.   if objectP (ancestor) then destruct (ancestor)
  31.   set ancestor = 0
  32. end
  33.  
  34.  
  35. on noResponse me
  36.   set responseFlag = FALSE
  37. end
  38.  
  39.  
  40. on initializeRound me
  41.   hideDraggables (me)
  42.   initializeRound (ancestor)
  43.   showDraggables (me)
  44.   initPlay (me)
  45. end
  46.  
  47.  
  48. on mouseDown me, spr
  49.   if not isDraggable (me, spr) then return 0
  50.   
  51.   -- drag until release:
  52.   set testSprite = dragSprite (me, spr)
  53.   if testSprite = -1 then return 1  -- drag ended in starting position (exactly)
  54.   
  55.   -- on release of the mouse
  56.   -- check to see if the sprite is overlapping the correct container:
  57.   
  58.   set matchSprite = checkMatch (me, spr, testSprite)
  59.   hideUnderSprite (me)
  60.   
  61.   if matchSprite then
  62.     
  63.     -- play the good response sound 
  64.     if responseFlag then playResponseSound(1, 1)
  65.     -- play the proper "ID" sound
  66.     playSprite (gUI, spr, #ID)
  67.     
  68.     -- if so, move the draggable off the screen and animate the 'hit' container:
  69.     hideDraggable (me, spr)
  70.     moveOffScreen (me, spr)
  71.     
  72.     updateStage
  73.     animateSprites (me, [matchSprite])  -- animate the matching sprite
  74.     
  75.     -- move a bar graph if one has been set up:
  76.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  77.     
  78.     -- we have a match, now check to see if we are done.
  79.     if not done (me) then 
  80.       initPlay (me)
  81.     end if
  82.     
  83.   else
  84.     showDraggable (me, spr)
  85.     -- play the good response sound 
  86.     playResponseSound(0, 1)
  87.   end if
  88.   
  89.   return 1
  90. end
  91.  
  92.  
  93.  
  94. -- check to see if we are done.  
  95. -- if so, then do an action.
  96.  
  97. on done me
  98.   clearPictLink (me)
  99.   if checkDone (ancestor) then 
  100.     wait (me, delaySecs)
  101.     go "finish"
  102.     unloadCast (me)
  103.     return 1
  104.   else
  105.     return 0
  106.   end if
  107. end
  108.  
  109.  
  110. on initPlay me
  111.   initHandCursor ("hand", getDraggableList (me))
  112. end
  113.